home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / CHAR.P < prev    next >
Text File  |  1990-09-13  |  2KB  |  87 lines
  1. temp <- <primitive 110 18 >
  2. <primitive 112 temp 1        " printString " \
  3.     #( #[ 48 32 250 1 58 11 17 243 245] \
  4.     #( '$'  ) ) >
  5.  
  6. <primitive 112 temp 2        " isVowel " \
  7.     #( #[ 32 250 1 51 243 245] \
  8.     #(  ) ) >
  9.  
  10. <primitive 112 temp 3        " isUppercase " \
  11.     #( #[ 32 48 49 218 243 245] \
  12.     #( $A $Z  ) ) >
  13.  
  14. <primitive 112 temp 4        " isSeparator " \
  15.     #( #[ 32 250 1 55 243 245] \
  16.     #(  ) ) >
  17.  
  18. <primitive 112 temp 5        " isLowercase " \
  19.     #( #[ 32 48 49 218 243 245] \
  20.     #( $a $z  ) ) >
  21.  
  22. <primitive 112 temp 6        " isLetter " \
  23.     #( #[ 32 10 28 251 3 32 10 29 243 245] \
  24.     #(  ) ) >
  25.  
  26. <primitive 112 temp 7        " isDigit " \
  27.     #( #[ 32 48 49 218 243 245] \
  28.     #( $0 $9  ) ) >
  29.  
  30. <primitive 112 temp 8        " isAlphaNumeric " \
  31.     #( #[ 32 250 1 56 243 245] \
  32.     #(  ) ) >
  33.  
  34. <primitive 112 temp 9        " digitValue " \
  35.     #( #[ 32 250 1 50 241 113 161 247 3 32 48 188 242 33 243 \
  36.  245] \
  37.     #( 'digitValue on nondigit char'  ) ) >
  38.  
  39. <primitive 112 temp 10        " compareError " \
  40.     #( #[ 32 48 188 243 245] \
  41.     #( 'char cannot be compared to non char'  ) ) >
  42.  
  43. <primitive 112 temp 11        " asString " \
  44.     #( #[ 32 250 1 58 243 245] \
  45.     #(  ) ) >
  46.  
  47. <primitive 112 temp 12        " asUppercase " \
  48.     #( #[ 32 250 1 53 247 6 32 250 1 57 248 2 242 32 243 \
  49.  245] \
  50.     #(  ) ) >
  51.  
  52. <primitive 112 temp 13        " asLowercase " \
  53.     #( #[ 32 250 1 54 247 6 32 250 1 57 248 2 242 32 243 \
  54.  245] \
  55.     #(  ) ) >
  56.  
  57. <primitive 112 temp 14        " asciiValue " \
  58.     #( #[ 32 250 1 59 243 245] \
  59.     #(  ) ) >
  60.  
  61. <primitive 112 temp 15        " > " \
  62.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 43 248 4 242 \
  63.  32 10 19 243 245] \
  64.     #(  ) ) >
  65.  
  66. <primitive 112 temp 16        " = " \
  67.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 46 248 4 242 \
  68.  32 10 19 243 245] \
  69.     #(  ) ) >
  70.  
  71. <primitive 112 temp 17        " < " \
  72.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 42 248 4 242 \
  73.  32 10 19 243 245] \
  74.     #(  ) ) >
  75.  
  76. <primitive 112 temp 18        " == " \
  77.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 46 248 2 242 \
  78.  92 243 245] \
  79.     #(  ) ) >
  80.  
  81. <primitive 98 #Char \
  82.     <primitive 97 #Char #Magnitude #\smalltlk\prelude\char.st \
  83.     #(  ) \
  84.     #( #printString #isVowel #isUppercase #isSeparator #isLowercase #isLetter #isDigit #isAlphaNumeric #digitValue #compareError #asString #asUppercase #asLowercase #asciiValue #> #= #< #==  ) \
  85.     temp 2 4 > >
  86.  
  87.